home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / utility / ash005a.zip / EBCLTEST.BCL < prev    next >
Text File  |  1994-02-06  |  879b  |  35 lines
  1. CHAIN CHAINTST.BCL goto chaintest1
  2.  
  3. :top
  4.  
  5. gosub testproc
  6.  
  7. box 5 5 76 15 white blue 2 shadow
  8. write 7 6 white blue "Delaying for 2 seconds..."
  9. delay 200
  10. box 6 6 77 17 LightGray red 1 shadow Explode
  11. box 4 4 75 14 Black Cyan 3 shadow
  12. chain CHAINTST.BCL goto chaintest2
  13. box 5 5 76 15 white blue 5 shadow Explode
  14. box 5 5 76 15 white blue 2 shadow
  15. write 8 7 white blue "This is some test text..."
  16. write 8 8 white blue "This is the second test line"
  17. write 8 9 white blue "Delaying for another 2 seconds....Then clearing the screen"
  18. delay 200
  19. cls
  20. exit
  21.  
  22.  
  23. :testproc
  24. box 5 5 76 7 white blue 2 shadow explode
  25. write 22 6 white blue "This was called via a GOSUB command."
  26. gotoxy 1 23
  27. exec "pause"
  28. return
  29.  
  30. :teststart
  31. cls
  32. write 1 1 "This was executed from the label TESTSTART."
  33. write 1 2 "Press any key to continue, or wait 10 seconds..."
  34. delaykey 1000
  35. goto top